home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64 / circle mover (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  871b  |  38 lines
  1. 10 rem     ***********************
  2. 20 rem     *    "circle mover"   *
  3. 30 rem     *   von leif kobbelt  *
  4. 40 rem     *   7500 karlsruhe 1  *
  5. 50 rem     *  graf-rhenastr. 23  *
  6. 60 rem     ***********************
  7. 70 :
  8. 80 :
  9. 100 input"[147]             startadresse ";s
  10. 110 input" fur welche bit-map (1-7) ";t
  11. 120 open1,8,0,"circle.code":get#1,a$,a$
  12. 130 get#1,a$:a=asc(a$+chr$(0))
  13. 140 pokes+b,a:b=b+1
  14. 150 ifst<>64then130
  15. 160 close1
  16. 170 fora=1to11
  17. 180 readc1,c2:c1=c1+s:c2=c2+s
  18. 190 c3=int(c2/256):c4=c2-c3*256
  19. 200 pokec1,c4:pokec1+1,c3
  20. 210 next
  21. 220 pokes+435,t*32
  22. 230 print"[147]     abspeichern ?"
  23. 240 poke198,0:wait198,1:geta$
  24. 250 ifa$="n"thenprint"[147]":end
  25. 260 ifa$<>"j"then190
  26. 270 sys (57812)"circle"+str$(s),8,1
  27. 280 s1=int(s/256):s2=s-s1*256
  28. 290 poke193,s2:poke194,s1
  29. 300 s=s+465:s1=int(s/256):s2=s-s1*256
  30. 310 poke174,s2:poke175,s1
  31. 320 sys 62954
  32. 330 print"[147]":end
  33. 340 :
  34. 350 :
  35. 1000 data 31,232,51,232,125,136,153,236
  36. 1010 data 214,256,221,46,228,256,295
  37. 1020 data 322,306,322,328,335,356,360
  38.